home *** CD-ROM | disk | FTP | other *** search
/ Digital News 3 / Digital_News_3_1988_-_de_Side_A.d64 / speed_align test (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  136 lines
  1. 0 rem speed/align by the equalizer
  2. 1 printchr$(14)
  3. 2 poke53280,1:poke53281,0
  4. 3 print"[147][158]   [197]qualizer's 1541/70 [200]ead alignment              and  ";
  5. 4 print"  [211]peed [195]heck           [146]         [203][197][217]"
  6. 5 print"[159]          1  -  [211]peed [195]heck"
  7. 6 print"[156]          2  -  [193]lignment [195]heck"
  8. 7 print"[158]         [208]lease [211]elect [198]acility";
  9. 8 geta$:ifa$<"1"ora$>"2"then8
  10. 9 a=asc(a$)-48
  11. 10 print"[147][153][208]lease enter drive number for checking"
  12. 11 print"[154][196]evice 8=[193], 9=[194], 10=[195] and 11=[196]"
  13. 12 print"[208]lease enter [193], [194], [195] or [196]"
  14. 13 get a$:ifa$<"a"ora$>"d"then13
  15. 14 dev=asc(a$)-57
  16. 15 onagoto16,89
  17. 16 poke646,1
  18. 17 print"[147][159]           1541/70 [211][208][197][197][196] [212][197][211][212]"
  19. 18 print"            by the [197][209][213][193][204][201][218][197][210]"
  20. 19 open1,dev,15:tr=37:lo=0
  21. 20 close1
  22. 21 print"[153][212]he accepted drive speed should be about"
  23. 22 print"300 rpm with a tolerance of +/- 1 rpm."
  24. 23 print"[217]our drive will be quite noisy at the"
  25. 24 print"start of this test. [212]his is quite"
  26. 25 print"normal."
  27. 26 print"[158][208]ress any key to start speed check[146]"
  28. 27 getd$:ifd$=""then27
  29. 28 open1,dev,15:tr=37
  30. 29 lo=0:print "[147]        [211]tand by for speed test"
  31. 30 restore:gosub 52
  32. 31 print#1,"m-w"chr$(0)chr$(0)chr$(1)chr$(192)
  33. 32 print#1,"m-r"chr$(0)chr$(0):get#1,a$:ifasc(a$+chr$(0))>127 then 32
  34. 33 print#1,"m-w"chr$(6)chr$(0)chr$(1)chr$(tr)
  35. 34 print#1,"m-w"chr$(5)chr$(3)chr$(1)chr$(11)
  36. 35 co%=0:print"[147][159]      [211]peed test drive number[153]"dev
  37. 36 print"[159]      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  38. 37 co%=co%+1:print#1,"m-w"chr$(0)chr$(0)chr$(1)chr$(224)
  39. 38 print#1,"m-r"chr$(0)chr$(0):get#1,a$:if asc(a$+chr$(0))>127 then 38
  40. 39 print#1,"m-r"chr$(7)chr$(3):get#1,a$:l=asc(a$+chr$(0))
  41. 40 print#1,"m-r"chr$(9)chr$(3):get#1,a$:h=asc(a$+chr$(0))
  42. 41 if h<>0 then 44
  43. 42 print"[159][195]onsult manual page two and last paragraph."
  44. 43 goto 84
  45. 44 t(co%)=((256*h)+l)*100
  46. 45 s(co%)=(int((60000000*100)/t(co%))/100)
  47. 46 co$=str$(co%):cl=len(co$)
  48. 47 print"[159][211]can"spc(3-cl)"[153]"co$" ="s(co%)chr$(13)spc(17)"[159][145][210][208][205]"
  49. 48 if co%<10 then 50
  50. 49 goto 70
  51. 50 print#1,"m-w"chr$(5)chr$(3)chr$(1)chr$(78)
  52. 51 goto 37
  53. 52 forx=1 to 42
  54. 53 read n1%,n2%,n3%,n4%
  55. 54 print#1,"m-w"chr$(lo)chr$(3)chr$(4)chr$(n1%)chr$(n2%)chr$(n3%)chr$(n4%)
  56. 55 lo=lo+4:next x:return
  57. 56 data 169,0,133,0,76,78,3,0,0,0,0,120
  58. 57 data 173,12,28,41,31,9,192,141,12,28,169,255
  59. 58 data 141,3,28,162,85,142,1,28,162,50,160,0
  60. 59 data 80,254,184,136,208,250,202,208,247,80,254,184
  61. 60 data 141,1,28,169,224,13,12,28,162,4,80,254
  62. 61 data 184,202,208,250,141,12,28,142,3,28,162,3
  63. 62 data 80,254,184,202,208,250,120,173,11,24,9,64
  64. 63 data 141,11,24,162,1,169,98,141,4,24,160,0
  65. 64 data 140,8,3,140,10,3,140,7,3,140,9,3
  66. 65 data 140,5,24,44,0,28,48,251,44,0,28,16
  67. 66 data 251,140,5,24,44,0,28,16,19,173,13,24
  68. 67 data 10,16,245,173,4,24,254,7,3,208,237,254
  69. 68 data 9,3,208,232,202,240,221,169,191,45,11,24
  70. 69 data 141,11,24,169,1,88,108,232,255,234,234,234
  71. 70 sw=0
  72. 71 for i=1 to 9
  73. 72 if s(i)=<s(i+1) then 74
  74. 73 sw=sw+1:s(0)=s(i):s(i)=s(i+1):s(i+1)=s(0)
  75. 74 next i
  76. 75 if sw=0 then 77
  77. 76 goto 70
  78. 77 sp=(s(1)+s(2)+s(3)+s(4)+s(5)+s(6)+s(7)+s(8)+s(9)+s(10))*10:sx=(int(sp)/100)
  79. 78 if sx>299.0 and sx< 301.1 then q$="[153] o.k":goto 80
  80. 79 q$="poor[146]"
  81. 80 print"[154][193]verage speed is "q$"[154] at"sx"[154]rpm."
  82. 81 if s(10)-s(1)=<.6 then sl$="[153]o.k":goto 83
  83. 82 sl$="failed[146]"
  84. 83 print"[154][194]elt and [195]lamping test are "sl$"."
  85. 84 print"[158][196]o you wish to re-run test (y/n)."
  86. 85 close1
  87. 86 geta$:ifa$="y"then28
  88. 87 ifa$<>"n"then86
  89. 88 run
  90. 89 print"[147][159]    [196]isk [196]rive [200]ead [193]lignment [212]est"
  91. 90 print"         by the [197][209][213][193][204][201][218][197][210] 1987"
  92. 91 print:print"[158]   [196]evice"dev"is your nominated drive"
  93. 92 print:print:print"[156]    [208]ress "chr$(34)"[198]"chr$(34)" to format a new disc"
  94. 93 print:printspc(19)"or"
  95. 94 print:print"[153]      [208]ress "chr$(34)"[212]"chr$(34)" to test alignment"
  96. 95 geta$:ifa$=""then95
  97. 96 ifa$="t"thena=0:goto108
  98. 97 ifa$<>"f"then95
  99. 98 print"[147][208]lease enter disk name for format[158]"
  100. 99 inputnm$
  101. 100 iflen(nm$)>16then98
  102. 101 print"[208]lease enter two digit id for format[158]"
  103. 102 print"                  "chr$(13)"[145]";
  104. 103 inputid$
  105. 104 iflen(id$)>2then101
  106. 105 na$="n0:"+nm$+","+id$
  107. 106 open15,dev,15
  108. 107 print#15,na$:close15:goto89
  109. 108 print:print"[147]           [195]hecking [193]lignment"
  110. 109 :print"           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  111. 110 open1,dev,15:open4,dev,4,"#"
  112. 111 ft=1:ft$=str$(1):lt=35
  113. 112 lt$=str$(lt):gosub124
  114. 113 print#1,"u1:";4;0;lt;0
  115. 114 t$=lt$:gosub 124
  116. 115 print#1,"u1:";4;0;ft;0
  117. 116 t$=ft$:gosub 124
  118. 117 lt=lt-1:iflt>0then112
  119. 118 print"[159][217]our drive has passed the alignment test"
  120. 119 close4:close1
  121. 120 print"[158][196]o you want to re-test this drive ([217]/[206])"
  122. 121 geta$:ifa$<>"y"anda$<>"n"then121
  123. 122 ifa$="y"then89
  124. 123 run
  125. 124 ifa<>1thenprint:goto127
  126. 125 iflen(t$)<3thent$=" 0"+right$(t$,1)
  127. 126 print"[154][145][145][145][145][145][145]     [157][157][157][157][157]"t$:print:goto128
  128. 127 printspc(12)"[153][210]eading [212]rack:[154]";t$:a=1:print
  129. 128 input#1,en,em$,et,es
  130. 129 print:printspc(12)"[158][196]isk [196]rive [211]tatus"
  131. 130 le=len(em$):ifle>2thenle=le-3
  132. 131 print:printspc(17-le)"[155]          [157][157][157][157][157][157][157][157][157][157]"en;em$;et;es
  133. 132 ifen<2 then return
  134. 133 print:print"[159][217]our drive has failed[159] the alignment test"
  135. 134 goto 119
  136.